//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
#include <Vcl.Styles.hpp>
#include <Vcl.Themes.hpp>
//---------------------------------------------------------------------------

USEFORM("FrameNewMark.cpp", NewMarkFrame); /* TFrame: File Type */
USEFORM("FormMain.cpp", MainForm);
USEFORM("FormSendTesterReport.cpp", SendTesterReportForm);
USEFORM("FormTesterReportsViewer.cpp", TesterReportsViewerForm);
USEFORM("TemplateListEditor.cpp", ListEditorTemplate);
USEFORM("Template_FormBase.cpp", TEMPLATE_BaseForm);
USEFORM("FormItems.cpp", ItemsForm);
USEFORM("FormItemCategories.cpp", ItemCategoriesForm);
USEFORM("FormItemDrugGenericNames.cpp", ItemDrugGenericNamesForm);
USEFORM("DlgItemEditorConfirmation.cpp", ItemEditorConfirmationDlg);
USEFORM("FormItemBasicUnits.cpp", ItemBasicUnitsForm);
USEFORM("FormItemDrugPharmGroupsSets.cpp", ItemDrugPharmGroupsSetsForm);
USEFORM("FormItemNames.cpp", ItemNamesForm);
USEFORM("FormItemDrugMedForms.cpp", ItemDrugMedFormsForm);
USEFORM("FormItemDrugPharmGroups.cpp", ItemDrugPharmGroupsForm);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
	try
	{
		Application->Initialize();
		Application->MainFormOnTaskBar = true;
		Application->Title = "Owlogist";
		Application->CreateForm(__classid(TMainForm), &MainForm);
		Application->CreateForm(__classid(TListEditorTemplate), &ListEditorTemplate);
		Application->CreateForm(__classid(TItemCategoriesForm), &ItemCategoriesForm);
		Application->CreateForm(__classid(TItemBasicUnitsForm), &ItemBasicUnitsForm);
		Application->CreateForm(__classid(TItemNamesForm), &ItemNamesForm);
		Application->CreateForm(__classid(TItemDrugPharmGroupsForm), &ItemDrugPharmGroupsForm);
		Application->CreateForm(__classid(TItemDrugMedFormsForm), &ItemDrugMedFormsForm);
		Application->CreateForm(__classid(TItemDrugGenericNamesForm), &ItemDrugGenericNamesForm);
		Application->CreateForm(__classid(TItemsForm), &ItemsForm);
		Application->CreateForm(__classid(TTesterReportsViewerForm), &TesterReportsViewerForm);
		Application->CreateForm(__classid(TSendTesterReportForm), &SendTesterReportForm);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------
